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ACE 
THIRD ANNIVERSARY: 


Happy birthday to us and to those who have been with us from the 
start. This issue marks three years of publication for the ACE Newslet- 
ter, which began with the October, 1980 issue. I've only been with ACE 
since July, 1981 myself. 

In the past three years, users have pioneered uses of the Atari com- 
puter for which Atari, Inc. and the rest of us never imagined possible. 
Many of those users continue to share their discoveries in this 
newsletter. 

Now there are a half-dozen different Atari computers and thousands 
of software titles, and peripherals are multiplying explosively. Hob- 
byist and user explorations of the limits of these items will range even 
more widely in the future. We will continue sharing these pioneer ef- 
forts in the pages of the ACE Newsletter. 


NIBBLING BYTES 


by Kirt E. Stockwell 


An old Arab curse goes like this: "May you live in interesting times.” 
Apparently they preferred not having to keep up on current events. 
Since we DO live in interesting times, we might as well make the best 
of them. 

You are probably aware this has been an extremely interesting year. 
ATARI has announced a new line of computers. ATARI has made many 
personnel changes, and ATARI stock has done interesting things. The 
industry as a whole is buzzing with activity, not the least of which is 
the effort to develop a computer better than the one the competition is 
going to release soon. The micro computer makers are all trying to 
beat the pants off of each other. Business computer makers are at 
each others’ throats as usual. The entire nation of JAPAN has 
challenged the US to a race to see who can develop the next genera- 
tion of SUPER-COMPUTER. 

You can read about all of this in any weekly magazine, but have you 
thought about how it will affect you? Consider some of the following 
items: 

32 bit mainframe computers on a single chip are already available 
from 3 different manufacturers. This may change by publication time. 

The 64K memory chip is now affordable. The next step is the 128K 
chip, expected within 2 years. 

Disk drive prices are falling, while densities and storage capacities 
are growing. 10MEG and 20MEG drives will be reaching the point of 
common affordability within 2 years. 

With every passing year the newly available software becomes more 
powerful and easy to use, as well as less costly. 

The question | hear most these days is: “Should | buy an 800 or wait 
for the NEW machines?" | must admit the new machines are pretty. 
But the 800 is a proven product of high quality. My tendency is to ad- 
vise NOT WAITING for any new equipment. Once a person makes the 
decision to buy a computer, the computer should be bought. Waiting 
for the perfect computer will only result in frustration and wasted 
time. Within the computer industry, NEW usually means BUGGY. 

| don't mean to imply ATARI will release inferior products, but this is 
a reflection of an industry reality. The 1200XL also sticks in the back of 
my mind. Overall, | feel ATARI has spent the past year LEARNING, 
sometimes painfully, the realities of the computer market. | expect 
they will emerge from their problems as a leaner, cleaner, more 
methodical corporation. 

Any of you who may be trying to decide what to buy will be well ad- 
vised to buy an 800 NOW. Every day you waste puts you and your fami- 
ly that much farther behind. Future equipment, both from ATARI and 
from the various mainframe companies, promises to be quite advanc- 
ed. What you have now, Or buy in the near future, will not be particular- 
ly important. What will be important is whether or not you understand 
the equipment and the market. 


News and Reviews 


by Mike Dunn, Co-Editor 


Atari computers are being sold now for amazing low prices. l've 
heard of $180 for an 800 with BASIC and 48K, and a 1200 for $219. 
Speaking of the ill-fated 1200XL, Atari has made available for 1200 
owners who are having trouble running third party software a pre-boot 
disk turning the 1200 OS to a 800 OS. Contact customer service for 
details. 

Have you read the Oct issue of Consumer Reports? They have been 
doing a several part article on computers and peripherals; the first, last 
month was not particularly favorable to Atari. This month, they have 
upgraded the Atari considerably because of AtariWriter, which they 
consider one of the best and easiest to use wordprocessors available 
— they even rate it in the league of WordStar, and other big league 
programs. They think AtariWriter is worth buying an Atari for alone! 
APX now has the AtariWriter printer drivers available for only $15 and 
they are much better than | expected them to be. New printers are add- 
ed all the time; they now include the Epson MX80, FX8, RX80, 
Gemini10, IDS480, MX100, NEC8032a and the C. Itoh Prowriter. Each 
driver allows the use of all the special features of the printer; they even 
allow right justification of proportional print. None of the other word- 
processors for the Atari have this option; and until they do, it does 
make the AtariWriter a best buy if this is important to you. Since these 
files are automatically booted in, it also makes this wordprocessor the 
easiest to use for the printers noted above. 


The most impressive new program l've seen in the entertainment 
area ever is the fantasic new program by Chris Jochumson and Doug 
Carlston of Broderbund called The Arcade Machine, (17 Paul Drive, 
San Rafeal, CA 94903, $60. Although it arrived too late for a full review 
— see next issue — this incredable new "language" allows you to 
make arcade quality games of your own design with great ease. It in- 
cludes 4 made games on files as examples; the manual tells you how 
to modify them. You can easily create shapes, backgrounds and title 
pages, then make the shapes move in any path you wish. You can add 
all kinds of “canned” sound effects as well as make your own, in- 
cluding music. You can make up to 5 levels for each game, have 
various options,etc. The games that are included are similiar to com- 
mercial quality games. You can easily test and change them to your 
hearts content; then, when all is ready, automatically create a “boot 
disk” and send them to your friends (or ACE!) to amaze your friends. It 
is very easy to create a game like, Say, “Joust”. If you create 
something you really like and think is great, you can send it to Broder- 
bund and win prizes or even a contract as a game creator. If you like 
Pinball Construction Set by Electronic Arts, you'll go wild over this 
one! A “must buy" for Arcader's— please send the ones you really 
like to ACE, and we can trade them around!! More next month on this 
one. 


Last month | mentioned a book by Jim Carr which indexes ACE, as 
well as A.N.A.L.O.G., ANTIC, Creative Computing and Compute!, and 
available from Valley Soft, 2660 SW DeArmond, Corvallis, OR 97333 for 
$6. | forgot to give the name: it is the Soft Finder 1.1, and | find | use it 
all the time — well worth getting. 

LOGO is out but not available easily — Atari is test marketing it on 
the East Coast only; so if you have one, consider yourself fortunate in- 
deed. | have never even seen it except for a 5 minute demo, and have 
had it ordered for quite a while. Good Luck. 

TARICON *83, the first all Atari Computer Convention, will be held at 
the Southfield Civic Center Pavillion, Southfield, Michigan, from Oct 
21-23. Sponsored by Michigan ACE. There will be over 50 exhibit 
booths, seminars and workshops featuring famous software authors, 
game tournaments, etc. Write TariCon ‘83 Info, MACE Box 2785, 
Southfield, MI 48037 for details. 

We'll appreciate receiving articles from those of you going to this 
exciting confererence!! 


The ATR 8000 company, SWP, has finally released the final version 
of MYDOS which allows use of double-sided drives, as well as the use 
of the Atari RS-232 port. ! have not received it yet, but it is ready. $30 
from SWP or your local dealer. There is also a new upgrade EPROM 
(3.2) to allow this DOS to work. 

Last month, | mentioned my Austin Franklin 80 Col Board (Austin 
Franklin Assoc., 43 Grove St., Ayer, MA 01432). After talking to Mr. 
Franklin, | found out the problem was my 32K memory board. Since | 
had one of the first 32K boards made, it used too much power, and 
made the image unstable. He is going to send me his 48K board to 
show me the difference. | have not received it yet, but will report on it 
when | do. 

The cover cartoon is by anew member who is stationed somewhere 
in the tropics, A. Grimm Richardson. Mr. Richardson is a prolific writer 
for various publications, but, unfortunately, all the ones he has written 
for have gone out of business. His cartoon is somewhat obscure, but 
very funny when you figure it out. The optional caption is “And where 
do you think computer hardware and software gets them?" 
Remember, the artist is from the tropics, where they really grow well. 





Ultra Disassembler 
Adventure International, Box 3435, Longwood, FL 32750, $50 


Written by Ralph Jones, this new disassembler is one of a series of 
utilities, including Diskey, called the Ultra series by Al. If the future 
one are as good, Atari owners can rejoice. 

Disassemblers all translate machine language (binary load) files in- 
to assembly language so you can see “List” the program. The Ultra- 
disassembler adds some amazing features. First, it allows you to take 
the assembly language listing and put it into the assembler of your 
choice for modification and re-assembling it to machine code. 

Although specifically designed to use the Atari MacroAssembler, 
there is a utility program allowing you to use almost any of the other 
available assemblers. The assembly language listing produced is for- 
mated in pseudo-code with standard Atari System labels. As an exam- 
ple, the memory location $02E5 is called MEMTOP by Atari, since it is 
the memory location of the Atari operating system which gives the 
location of the top of memory of the sytem. When a program is 
disasembled, instead of listing something like STA $02E5, which is 
difficult to understand, it will say STA MEMTOP. This allows for much 
easier understanding of the listing. A great tool for learning machine 
language by example. 


ACTION! 
O.S.S., 10379 Landsdale AVE., Cuperino, CA 95014, $99 ROM 


From the originators of Atari BASIC, as well as many other lanuages 
for the Atari: BASIC A+, C, MAC-65, etc., comes a new, original 
language available only for the Atari. ACTION! is in the new Precision 
Software Tools series which are on the OSS "SuperCartridge", allow- 
ing 24K on one ROM by bankswitching. This Cartridge includes the 
language ACTION!, a Text Editor, a Complier, monitor and a library of 
useful procedures all on one cartridge! Switching back and forth is in- 
stantaneos. 

The language is a extremly high speed, high level, structured 
language combining the best features of C, Pascal, Ada and BASIC. It 
runs 100 to 200 times faster than BASIC. Although it is compilied, the 
compiler is built in and does not have to be loaded in. 

You begin programing by using the powerful editor. This built.in 
Screen editor uses the horizontal and vertical scrolling window techni- 
que allowing a line to be 120 charactors wide or more — | recommend 
you set the line width to the width of your printer. The editor has many 
features of a good text editor, such as Search and Replace, ability to 
move text blocks, 2 windows, various types of deletions, restoring 
deletions if you change your mind, scrolling up and down, etc. The AC- 
TION! language does not require line numbers. 

ACTION! is a structured language similiar to C. It is actually easy to 
program in — the manual includes a section on translating BASIC to 
AGTION!, and it was very easy to translate some of the programs writ- 
ten in C in Byte. The cartridge includes many procedures in its library 
to simplify programming. The language includes many bit manipula- 
tion operators. You begin programming by naming the procedure, then 
declaring data types and variables. Structured statements include 
IF...WHILE...UNTIL, as well as ELSE and ELSEIF. These conditional 
statements end with FI. DO...UNTIL..OD are used for loops. Available 
also are extended data types such as pointers, arrays and powerful 
record manipulation commands, rather than just simple string 
manipulations. 

After the program is written, you go to the monitor and start to com- 
pile it. If you made an error, the program stops, and you go back to the 
editor; your cursor is on the error. Unlike most compiled languages, 
the editor and compiler are instantly available on the cartridge, so you 
do not have to re-load everything again. When it is compiled, you run 
the program, or, if testing, just a particular procedure in the program. 
Since it is a compiled language, everything is very fast. 

The language is very easy to program with, probably easier than 
BASIC for a beginner. The manual, however, makes it very difficult for 
a beginner to learn. There are too few examples, and several of them 
have typographical errors that are frustrating for a beginner. There is 
no index, and the organization makes it difficult to follow the ex- 
amples. Anyone used to structured programming should find it easy to 
learn, and because of the built in compilier/editor ROM, should find it 
a pleasure compared to Pascal and C. 

Compiled programs need ACTION! to run — there does not appear 
to be a run-time utility. O.S.S. will be releasing a disk of ACTION! pro- 
grams which should go a long way toward helping us learn. This could 
be a very popular language, especially if is made available for use with 
other micro-computers. If any of you develop some programs, 
especially comparing BASIC with ACTION!, please send them in and 
we can start a regular column. 

— M. Dunn 


BUMPAS REVIEWS 


This month | have five games, all of which | rate a 10. 

Excalibur, $29.95 from APX, is the latest and greatest creation from 
the mind of Chris Crawford. You are Arthur with the quest to become 
King of England forever. But first, the other 15 kings must pledge feal- 
ty to you. One or two of them might even rise to compete with you dur- 
ing the game for the control of all England. You must use your 
prestige, the Knights of the Round table and your army of men at arms, 
and Merlin to complete the quest. 

The game includes three modules: A beautiful map of all England 
which scrolls across more than a dozen Screens; Camelot castle with 
five separate rooms full of objects to manipulate; and the field of bat- 
tle where the knights and men at arms appear in battle array. 

Each king has his own castle, and Arthur can only enter the castle 
of a vassal. But with Merlin's help, he can “see” into the castle of any 
king to watch how the computer manipulates treasury, taxes and ar- 
my. Arthur keeps a strategic map in his Throne Room which highlights 
each kingdom in a distinct color indicating a vassal, neutral, tributary 
or hostile king. 

This is a real-time strategic game. Weeks pass without regard to 
how fast or slow you do your moves. An “Intermission” is available in 
case you are called away from the game briefly. One game in progress 
may be saved on a disk. I'm interested in exchanging information on 
the experiences you will have in this game. I've already united England 
under Arthur once, but I’m sure | did not do it the most efficient way. 
l've never seen a strategic game | enjoy more than this one. 


Dark Crystal is a graphics adventure game on 3 disks from Sierra 
OnLine for $60. I’m not a real fan of adventure games, but you don't 
have to be one to enjoy this game. Fans of the movie will enjoy how 
closely this game parallels the movie. This game makes you the 
character Jen in the movie. As the last surviving Gelfling, your quest is 
to find and repair the broken shards of the Crystal. All the baddies 
from the film are here to stop you. 


Operation Whirlwind from Broderbund for $39.95, puts you in com- 
mand of a German mechanized battalion with the task of driving 15 km 
through Russian lines to take and hold a town. The map scrolls across 
nearly 10 screens of finely detailed terrain. Enemy units are hidden un- 
til they move or fire, There is some real-time action during the combat 
phase. The longer you take to complete your combat, the longer you 
are bombarded by Russian artillery. You must also be concerned with 
the range and effect of your weapons against the various targets. A 
game in progress can be saved at the end of any turn. Player perfor- 
mance is evaluated by headquarters and reported each turn. 


POOYAN, $29.95 from Datasoft is a joystick game for small children 
which will give the rest of us a challenge, too. The name means 
"piglet" in Japanese. This may mean the game is an import of a 
popular Japanese arcade game. 

The player is a mother pig protecting her piglets from wolves. She 
has arrows and raw meat to keep the wolves away. The wolves must 
descend a canyon wall holding onto balloons to get at the piglets. As 
they descend, they throw acorns at the pig, trying to knock her out of 
her basket hanging from the opposite canyon wall. Two piglets with a 
pulley mechanism attached haul the basket up and down. 

Once a wave of wolves passes and one has pig lives remaining, the 
scene shifts to the wolves' lair. Here the wolves try to ascend to the 
clifftop. Seven wolves at the top will be able to push a stone over the 
edge and knock the pig out of her basket. 

If she survives this scene, a bonus scene allows her to gain points 
by throwing raw meat to the wolves without risking being knocked out 
of her basket. A second bonus scene is mentioned in the documenta- 
tion where points are gained by shooting strawberries. | guess you 
need more skill than | have to get to that page. 


COMBAT LEADER for $39.95 from Strategic Simulations, Inc. is a 
joystick game simulating small-unit tactics. The player may command 
an individual tank, scout vehicle or personnel carrier. Or one may com- 
mand a whole squad, platoon, or even an entire company. Enemy units 
and any units not commanded by the player will be commanded by the 
Atari. 

The map scrolls vertically across more than six Screens, covering a 
40x77 grid. The terrain shows woods, hills with topographical lines, 
rocky areas and depressions (these look like shell-holes to me). The 
map is predominantly green or olive-drab depending upon the 
scenario. 
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| The little tanks show turning turrets; the carriers look like boxes; the 
infantry are only little "+ "s. Shooters show little muzzle flashes of 
red; targets blow up in a bigger red fireball, leaving wrecks which look 
like ants or beetles. Each weapon produces its distinctive sound. 
Engine noises accompany movement. 

| Dozens of “canned” scenarios are available on the disk by combin- 
ing various mixtures of terrain, weapons systems, and missions. Or 
one may design custom scenarios to one's own specifications by 
responding to a couple of dozen prompts setting the various terrain 
densities, unit sizes, weapons characteristics, pace of the game and a 
random number from 1 to 8 which alternates the positioning of the 
various terrain features. 

A chart of dozens of tanks, scout vehicles and carriers is provided 
so one may create scenarios using historical vehicles with 
characteristics which conform to game parameters. It's been a long 
time since I’ve enjoyed playing a wargame more than this one. 

—Jim Bumpas 


FROM THE 
ACE LIBRARY 


When Aaron and | took over the library duties from Chuck and Jody 
Ross, we thought it was going to be an easy job. Just make a few 
disks and mail out a few library lists every month and that’s it. Boy, 
were we wrong! The ERACE group (Educational Researchers of ACE) 
snowed us under with five new disks and the editors of the newsletter 
added the Best of ACE Vol. #6. 

The mail has been coming in from all over the world. Besides the 
USA and Canada, we have heard from South Africa, Sweden, In- 
donesia, Japan, New Zealand, Australia, and a research ship 
somewhere in the Atlantic Ocean. We really enjoy hearing from all of 
you. Please excuse us if we may be late in sending a reply. 

Many of you have written asking for specific programs to do 
specific jobs. When asking for programs, please be sure to include 
what type of equipment and memory capacity you are using. This way 
we can do a better job helping you obtain the software you need. If you 
have a question we can't answer, we will pass it along to one of the 
many experts in the club or refer you to someone who may be able to 
help. ° 

Now, to the newest disks ... 

The Best of ACE Vol. #6 for $15.00 is now available. Programs in- 
clude most of the games and a few of the utilities which have been in 
the newsletter from June through September, including the latest ver- 
sion of TINYTEXT, RAMTEST, RUBIC'S CUBE, TITAN LANDER, and 
many others. 

EDUCATION DISK #4 (by ERACE) for $8.00 and includes 
MATHWARS, GEOQUIZ (a geography quiz), HANGQUOTE (a hangman 
type of game using famous quotations instead of single words), and 
ODDEVEN, PLURALS, NOUNS, and VERBS. There are 10 programs on 
this disk from elementary to advanced levels. A more complete 
description is available on the library list. 

We also have added four disks made available to us from the San 
Mateo County Office of Education and Computer Using Educators. 
Called SOFTSWAP ($8.00 each), there are 25 programs on these four 
disks. You will have to write for the library list for a complete descrip- 
tion. All of these are very well done. | am sure you won't be disap- 
pointed. 

The newest library list (revised 9-15-83) is off the press and ready to 
mail. To obtain your copy please send 25 cents (50 cents overseas) in 
stamps or coin to Ron and Aaron Ness, ACE Exchange Library, 374 
Blackfoot Street, Eugene, OR 97404. 

— Ron Ness 
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400 KEYBOARDS 


| did purchase the S/Ware keyboard. Unfortunately, the amount of 
time required to complete all the wiring makes this a most cost 
ineffective product as far as | am concerned. The documentation is 
very well put together. The time, though, to solder every switch and 
run the various loops of wires will likely take several hours. Of 
additional note, the product does not come with a case for the 
keyboard, which will likely add an additional $25 to the cost. Since the 
vendor did not have a telephone number to call for problems, and 
implied in the published limited warranty that returns are accepted for 
defects only, | was not sure what problems | was going to have in 
returning the product. Fortunately, the vendor was gracious enough to 
accept my return of his product minus a restocking fee. 

Next | obtained the "Sidewriter' keyboard manufactured by 
Screensonics. This is an excellent keyboard which is connected to the 
Atari by several feet of flat cable, with pin connections to both the 
keyboard and the Atari. It is sufficiently heavy to offer an excellent 
“feel” when placed on one's lap. The board comes prewired and in a 
case. The only wiring required is to connect to the Atari keyboard pins, 
which should not take more than 1 hour. My only critique is the lack of 
a keypad option on the keyboard . The price is approximately $170. 

| also just purchased ATSPELLER by APX. This is a word dictionary 
utilizing Atari DOS. . 
— Ellioth H. Fishkin, M.D. 


Stereo Cassette Interface 


Essence Peripheral Systems. Model 600 for $50.00. 
Here is a new product for all cassette users. This interface allows 


you to use your stereo cassette deck to load and save your programs. 
The stero cassette deck gives you clearer, sharper and better all 


around copies of your programs. 

This IF comes complete & ready to use except for a set of patch 

cords which can be bought at Radio Shack. EPS even gives you the RS 

art no. 

š Instructions are quite clear and once you hook up the patch cord to 
the interface, the cassette deck and then to the computer you are 
ready to go. The interface has only one switch to use. One position is 
CLOAD, the other CSAVE. The only thing left to do now is to load one 
of your programs in with the deck and turn everything on as you nor- 
mally might, except the interface is in the CLOAD mode or load a 
blank tape and use the CSAVE mode. 

One of the things | found annoying was that my cassette deck was 
with the Hi-Fi equipment in another part of the house. And to bring ina 
portable deck to use just means more equipment around the com- 
puter. For those of you who have Hi-Fi or cassette decks close by, this 
interface makes or plays cassettes better than the 410 Program 
Recorder does. It is a good investment for those who use a lot of 
cassettes and want to make sure they have the best possible recor- 
ding or playing of their programs. 

The ACE librarians will use this interface to make cassettes for the 


library. 
—-Larry Gold 
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Robert Browning: Upper £ LowerCase 


8 REM EEEREESEHEEEEEEEEREES 
I REM ## ACE NEWSLETTER ££ 
2 REM ++ 3662 VINE MAPLE ** 
3 REM ++ EUGENE, OR 97445: 
å REM ++ $1Ø YR z£ 
5 REM KEEEESHEEEHEEERE REE RE 
b REM HHEEREEEEEEEEEEEHEEEHEE E E EE X E 
7 REM + GRAPHICS 1 & 2 TEXT. + 
k UPPER AND LOWERCASE # 
8 REM + by ROBERT BROWNING E 
9 REM + OCTOBER 1983 t 
19 REM EEEEEHEREREEERESELELELE LESS 
11 REM ri! SETUP Ft 
28 DIM ANS$(12) ,ANS2$(12) ,P$ (40) , QUESS 
(1) 
38 CLOSE #1;OPEN 41,4,8, "K;" 
48 POKE 185,PEEK (186) -B: GRAPHICS 8 
98 SL={PEEK (185) +1) £256 
68 POKE 752,1 
78 POSITION 9,5:? "Give ae 22 seconds 


ta move and redefine t 
h 
e character set,” 


86 POSITION 9,12:? "When you want to e 
nd the program, type 'end 
for your nage," 
85 POSITION 28,14:? "or press the 
[psu] key." 
98 FOR MN=@ Tü 1823:POKE SL+MM,PEEK (57 
3444HM) (NEXT MM 
188 FOR MMz256 TO 472:POKE SL+MM+256,P 
EEK (57344 €MM) NEXT MM 
118 FOR R=1 TO 4:READ A:READ BIFOR MM- 
| TO 8:POKE SL+A+MM+254, PEEK (57344 €HM* 
B 
FNERT MMINEIT R 
128 FOR 12256 TO 253:POKE I*5L*256,0:N 
Eu 
125 GOSUB 989 
138 REM ##### YOUR PROGRAM GOES HERE + 
EEEEEHHEEEEEHHREEEEEEEEEEEEE E EE EEERE EERE 
144 ? "øm "POSITION 8,5 
145 POKE 755, LIPDKE 752, 1 
158 7 "Do you want to see each 
charcter and it’s ATASCI 


number?" 
leg POSITION 8,9;? "(Y DR N) ( 
j" 
178 MAY=1:LUTR=1;:1X=24;Y=9;605UR 388: OU 
E5$-AN52$ 
175 GRAPHICS 2:POKE 732,1 
176 POKE 756,SL/256+2 
188 7 bjen"? "gh 
198 POKE 754,SL/256+2 
288 POSITION 1,1:? #63"what 15 your na 
ae?" 


218 POSITION 1,2:? Hår "WHAT IS YOUR NÅ 

ME?" 

228 POSITION 1,3:? S6: " DT IE RR was RR 

OLUR MONNE 7i 

238 POSITION 1,4:7 #63 "US TRE ET 

248 POSITION 1,627 #6;"“ehat 15 your 

name" 

258 POSITION 1,7:? $65 "7HAT IS YOUR NA 

ME?" 

268 POSITION 1,8:? FFO RR ae E 

LR NONE TE 

219 iod 1,97? 465 ae: SENE Hi 
PO RBS Ead 

288 IF OUES$="Y" THEN FOR R=@ TQ 255:P 

OSITION 1,5:? $5; CHR$IR):FOR W=1 TO SØ 








? RINEXT WINEXT R 

298 FOR R=1 TO B88:NEXT RI? dài" m" 
388 ? #65" «phat is your name” 

aig ? * Use the shift key for capitals 
328 MAX=10; X 1=4;Y=5;LTR=2;50SUB 388 
338 REM THIS LINE GOES IN PLACE OF AN 
INPUT STATEMENT: NAX=X:LTR OR NUMZN;XX- 
N 

:Y=N;6USUR 18Ø:POKE 764,255 

346 REM GOSUH 188 FOR LETTER ROUTINE, 
198 FOR NUMBER ROUTINE 

Saf ? ANS$,ANS2#:FOR W=1 TO 588:NEXT W 
17 tat? går" RTT 6N52$C?"END" AND 


A 
N52$¢>"end" THEN 188 
368 ? Hår NKPS ED Hed 


"T80S5UB 758:60T0 368 
37/8 REM 44xk&&t44& GETKEY Hee EEEEEE 


388 NUM-8:60SUB 4ØØ:RETURN 

390 LTR-8:60SUB 400: RETURN 

488 BREAK-PEEK!15)-128:1F BREAKSØ THEN 
GÜSUB 438:RETURN 

418 POKE 755,8L/25542 

428 POKE 16,BREAK:POKE 53774, BREAK 

436 FOR Riz! TO SØØ:POKE 792,Ø:POKE 69 

4,8:POKE 764,255:8P-8:1F LTR=1 THEN FO 


E 782,54 

448 ANS$="":ANG2$="" 

458 FOR R2=1 TO 588 

458 GET AL, AV:KEY=PEEK (754) : IF. KEY-52 
THEN 548 

455 IF KEY-28 THEN 348 

476 IF AV<32 THEN NEXT R2 

480 IF AV)32 AND AV(39 THEN NEXT R2 
498 IF AVI39 AND AV<46 THEN NEXT R2 
495 IF AV46 AND AV<48 THEN NEXT R2 
53A IF AV)47 AND AVC58 AND LTR THEN 
XT R2 

518 IF àV257 AND AVCAS THEN NEXT R2 


5 


NE 


TEM 619 IF AV=28 THEN AV2= 


a2f IF AVS? 
NEXT R2 

SJØ IF AV29Ø AND AUV(97 THEN NEIT R2 
348 IF AV+122 AND AYCLSS THEN NEXT R2 

sg8 IF AV>155 THEN NEXT R2 

958 DH-PEEE (37) 

978 TF GNM AND AV=39 THEN AV=29 

488 IF AY=155 AND SP=@ THEN NEXT R2 

398 IF AV=154 OR SP=MÅX THEN RETURN 

SØR AVZ=AVIIF AV>64 AND AVS91 THEN AV- 

AY-44 

683 IF AV=46 THEN AV=3Ø 

39 

528 SP-SP*1:A8NS$(5P, SP) -CHR$ (AV) Pez CH 

KS AV) 1505UR. 748 

533 IF GMIØ THEN GOSUB 736 

640 6NS2$ (SP, SP) ZCHRS(AV2) 

630 NEXT R2 

$68 IF SPi-8 THEN SPz8;NEXT RI 

678 RNSS!ISP,SP) ZCHR$(32) :PSzCHR$ 2230 

UN 748: ANS2$ | SP, SP) =CHR$ (32): SP=SP-} 


AND AUVCISS AND NUM=1 THEN 


NEXT R2 
138 REM 445444 PRINT KEY £u 

748 X=SP+Yy 

758 POSITION X,Y 

768 IF GMIØ THEN ? $5;P$:POKE 754,755: 
RETURN 

778 ? PEI RETURN 

i88 REM då SHOW ASC VALUE AND CHARAC 
TER GF KEY SELECTEDee*& t te & exe trek e e n 
798 ? PAY=" Ay "4 

888 ? "AVD="5AV25" "SCHRE (AV?) 

818 ANSZS{SP, SP)=CHR$(AY2) : RETURN 

828 DATA 479,55,487,95,495, 111,5Ø3, 247 
838 POKE 756,5L/258+2 

?86 GRAPHICS 17:POKE 758,51/256*2 


$85 ^ 7 får” ntt AA AA E a — 
918 POSITION 1,4 
m sem Bei o i Mert pe ex RE e: 


928 ? 845" 





938 POSITION 1,7 

940 ? BOR” pag ie e me and lowercase” 

958 POSITION 1,9 

960 ? HA "IN 72» /NE AND 400" 

378 POSITION 8,137? #43 "by" 

988 POSITION 1,15 

998 ? $6;* Re x RE SECRETS 
ley" 

Tla POSITION 8.2567, TT GS 


A A AB 


1888 FOR W=1 TO 2889:NEXT WERETURN 





Bob Luce: QUICKDOS 


in memory Micro- DOS 


578 DATA 22,6,152,48,4Ø, 182, 16,149 
588 DATA 5,157, 66,3, 32,13, 6,192 

599 DATA 136, 288,18, 189,49, 141, 115,4 
586 DATA 142, 16,32, 33,6, 182,0, 32 


| REM EEE EE EF E EH EHE 
2 REM + ATARI COMPUTER ENTHUSIASTS ++ 
3 REM # 246? VINE MAPLE DR kt 


4 REM + EUGENE, OR 97485 T 
en Re i b18 DATA 8,5,75,65,6,182,8,32 

å REN EHEEEEEEEEEEEFEEFEEEEF EE EE E G A "628 DATA 8,6,76,157,8,132, 185, 169 

7 REM Herr 838 DATA 49, 141,116,4,162, 18,32, 33 
B REM +REPRINTED FROM FACE (FRESNO ATA 648 DATA 6, 169,155, 76, 64, 185, 169, 35 
RI COMPUTER SECTOR, by Bob Luce 528, DATA 764231 B 189,36 5765231, 6 
Iu ATH LT bb DATA 159,53,76,231,6, 189, 32, 142 
M8 REM & UNEIS- — 878 DATA 16,157,66,3,32,42,6,32,8,6 
196 REN ER ERSEEEEEFEEEE 58 DATA 162,16,32, 13,6, 152,48, 283 
[28 OPEN #1,8,0, "D: AUTORUN, SYS” 698 DATA 76,65,6,226,2,227,2,90,4 


144 TRAP 189 

158 READ Å 

lad PUT HA 4: 
S a Assembly—Language Listing 
[88 CLOSE 31 

198 ? "ALL DONE" 

286 END 

218 DATA 255, 255, 98, 94, 128,04, 118 
228 DATA 6,77, 160, 214, 4, 219, 6 

238 DATA 224, 6,229,4,9,0, 125,81 


In SynAssembler Format 


248 DATA 95,73, 75, $8,79,83,32,49 $9019 HEHEHE EE 

258 DATA 46,48, 155, 155,49, 45, 68,73 88828 * — MENU/COMMAND LIST # 

268 DATA 82,69,67,84,79,82,89, 155 GIAI FXEXERERREEAXHTAEEREHEEZAE 

278 DATA 5,45, 66,45, 83, 73,47, 155 29049 .DR $486 

288 DATA 51,45,75,79,67,75, 155,52 00058 «TF "D: QMENU. OBJ” 

298 DATA 45,95, 78,76, 79,67, 75, 155 090686 + 

388 DATA 53,45, 68,69, 76,49, 84, 69 00878 + Uses the Safe $88 Bytes 

118 DATA 155,54,45, 82,59, 78, 65, 77 88888 + of the cassette buffer 

328 DATA 69,155,55,45,68,79,83, 155 88098 + for data and initialization 

116 DATA 155,92,165,18, 141, 12,4, 165 98188 * code, 

348 DATA 11,141,13,4, 169,65, 133, 19 09119 + 

388 DATA 74,21, 96,48, 49,58, 42,46 881358 «DA BASIC jQuikdos Commands 
278 DATA 42,4, 5,252, 6, 169,5, 157 28148 «DA LOCK 

JES DATA &4,3,74,13,5, 149, 9, 157 58158 «DA UNLOCK 

398 DATA 46,3, 159,64, 157,72,3 29160 «DA DELETE 

388 DATA 169,192,18Ø,3, 157, 48, 3 88178 «DA RENANE = 
418 DATA 152,157,69,3,32,85, 228 98188 G0D0S  .HS 6880 ;to he modified 
420 DATA 96,169, 12,157, 66, 2, 32, 86 MIB NENU, .H5 7D — —  iClearscreen 
438 DATA 228,95,159,11,141, 66,3, 169 E “AS "BUIKDOS 1.9 

448 DATA 1,141, 72,3, 169,89, 158,4 98218 «HS 9B9B 

358 DATA 142,9,142,73,3,32, 22,6 8720 «AS "1-DIRECTORY" 

4&6 DATA 95,159, 11, 141,55, 3, 169,75 28258 HS 9B 

478 DATA 141,72,3,169, 14, 168,4, 182 69244 ÅS "2-BASIC" 

488 DATA 8,32,22,5,32,42,6,32 28238 HS 98 

498 DATA 8,6,173,192,3, 56,233, 49 29:68 AS "J-LOCK” 

588 DATA 261,7, 175,221, 19, 178, 189, 98279 HS 9B 

518 DATA 4,141,116,5,232, 189, 0,4 #9288 ÅS "A-UNLDCK" 

528 DATA 141, 117,8,75,0,0, 32,42 86298 „H5 9B 

536 DATA 6,32,8,6,173,192,3, 48 88389 «AS "S-DELETE* 

548 DATA 2,141,114, 4, 162, 16,32, 33 86318 “HS 9B 

558 DATA 6, 169,3, 157,66, 3, 189,0 86328 AS "6-RENAME" 

588 DATA 157, 74,3, 149, 115, 168,4, 32 88538 «HS 38 


6 


99348 
88358 


ÅS "7-DOS" 
HS 9B9B 


68360 MENULEN EG +-MENU 


89378 PCHR AS PP 
98588 PLEN 
88598 INIT 


#8498 
90418 
80428 
90438 
80448 
80458 
08463 
80470 
$0488 
90499 


jPrompt Character 

EG #-PCHR 

LDA DBSVEC Store the real DGS 
STA GODGS vector in the 

LDA DOSVEC+! ;Command Address Table 
STA GODOS+1 

LDA 35TART Put Quikdos 

STA DOSVEC jin it's place 

STA $1546 jand in DOS init code 
LDA /START 

STA DOSVEC+! 

STA $1544 

RTS iBack to DOS load 


88508 DIRNAM AS "Diit.t" ja few spare bytes 


805189 DIRLEN 


FFAIR SXEEEEEXYEEEFTEESEEEEKEE GF 


$8928 * * 
00230 + BUIKDOS * 
998048 + Written by Bob Luce # 
99050 + (98/83) * 
80859 t * 


08070 EREREEEEEEEEEEEEEEEE EE G B EEHE 
88908 + 

98090 + Tero Page Equates 
98188 + 

88118 DOSVEC ED $9800 
80128 DOSINI EG $ØØØC 
891358 + 

90148 * 0,5. Equates 
880158 + 

$8158 ICCOM EG $8342 
80178 ICSTA £0 $8345 
88188 ICBAL -ER $8344 
49198 ICBAH .£0 $8345 
$9208 ICBLL EG $8348 
89218 ICBLH =. EB #8349 
88228 ICAX! EG $9345 
94239 ICAX2 EG $834B 
$9248 CIOV EG $E456 
$0258 BASIC EG $AØ4D 
90269 INBUFF EB $Ø3CØ 
94279 BASICERR ER $8949 
98288 + 

00298 * Misc, Equates 
99380 t 

$8319 READ JED $84 
98328 WRITE -EQ $88 
08538 APPEND EG $89 
80348 UPDATE EG $ØC 
#9358 OPEN -EQ $93 
883598 GETREC EQ $85 
99378 OPDIR EB $86 
GAIRA GETCHR ED $97 


JER £-DIRNAM jso we'll put this here 


88398 PUTREC 
38488 PUTCHR 
96318 CLOSE 
804178 t 
86438 
$8148 + 
96459 
98468 
00470 + 
$0488 * 
00498 € 
ganag + 
00513 + 
90528 + 
$8538 * 
88348 * 


„EQ $89 
EB $98 
ER SØC 


JIN "DIOMENU. SRC” 


OR $8508 
TF "D:GUTEDOS. OBJ” 


Subroutines 


CIO Routines 


X=IQCB to use 


88550 EGETREC LDA £GETREC sGet records 


#8568 
80578 


80588 EPUTREC 


80598 


88588 CONTINUE 


98518 

89528 

90536 

06549 C1060 
00659 

80558 

98678 CIO 
98588 

88598 + 


98788 CLOSEIT 


90719 
08720 
908739 
88748 PROMPT 
807589 
88768 
89778 
98788 
88798 
02809 
09819 
00820 
988358 
93840 s 


88858 + Main 


88868 + 
99878 START 
94989 
#9898 
90999 
20919 
00920 
29938 
80948 
30956 
88968 
98978 
80983 


STA ICCOM,X from D: or E: 

JMP CONTINUE 

LDA #PUTREC Put a record 

STA ICCOM,X ito E; 

LDA 194? iEnter here to 

STA ICBLL,Y juse printer buffer 
LDA #INBUFF 

LDY /INBUFF 

STA ICBAL,X sEnter with lo buffer 
TYR jaddress in Å 

STA ICBAH,Y $hi address in Y 
JSR CIOV 

RTS 


LDA CLOSE Close IGCR å 
STA ICCON, X 

JSR CIOV 

RTS 

LDA #PUTCHR Print prompt 
STA ICCOM 

LDA #PLEN 

STA ICBLL 

LDA #PCHR 

LDY /PCHR 

LDX 456060 

STX ICBLH 

ISR C1060 

RTS 


Program Code 


LDA $PUTCHR ‘Print Menu 

STA ICCOM 

LDA $MENULEN 

STA ICBLL 

LDA MENU 

LDY /NENU 

LEX $$98 

JSR C1060 

JSR PROMPT ¿Print Prompt 

JSR EGETREC ;Get user's input 
LDA INBUFF ;Ignore everything 
SEC sbut first character 


GOTO page 12 


Stan Ockers: Missile Defense 


PU. M4 2 
143 t^ 275 bar M 


$ 


I REM FERFESEEEEE SEER EFE REEL ES EE EE EEE 
i REM * ATARI COMPUTER ENTHUSIASTS ++ 
3 REM *& 3467 VINE MAPLE DR ks 
4 REM + EUGENE, DR 97485 tt 
å REM + $18 YEAR tt 
5 REM FEE EEEEEHERE LEE HELE SES Xd AE 
T REM &NEEEXEEEEAEEEREEEEEXEEXATX4ETEX 
Å REM tt MISSILE DEFENCE di 
9 REM ++ BY k# 
18 REM + STAN OCKERS ++ 
1i REM å Oct 1985 tt 


12 REM ERRERERHESEREEEEEHHE EEE EE E HERE R 
198 GOTO 464 

208 IF HENCE THEN GOTO C218 

282 SzPEEKISTICK8): X2zPEEK (XPBR2) : IF. S= 
C7 AND X2.C192 THEN POKE XPOZ, X2+C8: X= 
í 
+O2 MCOL=MCOL+C! 

284 IF S=C11 AND 125048 THEN POKE YPO? 
,A27CB: 12 3-C2: MCOLZMCOL-C1 

288 IF 5=C13 AND SHLD$ii«Ct,X«Cl)s"a" 
THEN SHLDS:X4C1,Y4C2)z" "POSITION C£ 


C19:? SHLD$; 

288 IF S=Ci4 AND SHLDS{X+C1,X+Cti=" " 
THEN SHLD$ (C1, 3€ C2) z" ab" POSITION C 
C197? SHLD$j 

218 IF PEEKISTRIB8)-C] OR MISL$(X+Ci, X 
+(1)<>"c" THEN GOTO C218 

216 MF-zC2:MISLS(DS CI, 3e02)2" — ":POSITI 
ON C8,C21:? MISLST:PDKE IMG2, C1Ø9: POKE 


1PQ2,C2889:POKE AUDLS, 138 
218 IF NFe>C2 THEN GOTO C232 





Domen ` 
een ed 
to ser essens 
= 
auxi WS tett ~IN et tg, mor: 22 "KATE NI URME DR BUEN DE =: 
ipis Pm LE um m n El on Pes en 


A game that demonstrates the PM Helper of the last issue 


228 Y2-PEEK (YPO2):POKE YPO2, Y2-MDEL :PD 
KE AUDES, Y? 

222 IF Y24C21 THEN POKE IN62,C124:POKE 
YP02,C286:POKE AUDC3,CØ:MF=C1:607O C2 


4 


Ha % 


224 IF ¥2=185 AND SHLD$(X+C1, ¥4C1)="a" 
THEN MF=C3:SHLDS(X+C1, X+C2)="rs" POSI 

1 

ION C8,C19:? SHLDS; 

226 IF YZOLY(MCOL) OR ST(MCOL)<C2 THEN 
23j 

228 POSITION X,Y(MCOL):? " ";:STIMCOL 
j=4MF=C3:HITS=HITS+C1:POSITION 18, CH: 
HITS 

238 IF Y24Y84CII AND LAC=MCOL THEN MF= 
3: LAF=I:POKE ING, C28 

232 IF MF«C3 THEN 242 

234 I-PEEK(IMG2):IF 1-C188 THEN POKE I 

ME2,C28:POKE WID2,CI:POKE AUDC3, 14@:P0 
K 

E AUDF3,56 

236 IF 1=C2Ø THEN POKE IMG2,C4@:POKE A 
UDF3, 48 

238 IF 1=C4@ THEN POKE ING2,C6Ø:POKE A 
UDF3, 36 

248 IF 1=C6Ø THEN POKE ING2,C128:POKE 
YP02,C288:MF-CI:POKE WID2,CØ:POKE XPO? 


3 
12;FOKE AUDCI,CØ 


242 P=PEEK{ RANDOM) IF P<C48 THEN R=INT 
iRND(C) 19) IF STIR)=CØ THEN STIR)=C1 


8 


244 IF AMF=CØ THEN AR=INT(RND (CH, €C19) 
SIF STiAR)=C1 THEN ANF=C1:W2=C14:POVE 
A 
UDC1,45:POSITION YiAR),Y (AR) :? ALS; 
246 IF AMF=C1 THEN POKE AUDEL,W2:W2=W2 
-C1:IF W2CCH THEN POKE AUDC1,C#:AMF=C 
8 
:ST (AR) =C2 
248 IF LAFOCI THEN 256 
258 LAC-INT(RNDICE) #019) : LAX-LACHLAE: I 
F STILAC)(32 THEN 254 
254 LAFSC2:POKE INGØ,BM:POKE XPOR,LY(L 
AC):POKE YPOB,LY LAC): STILAC) =C3 
254 IF LAFOC2 THEN 278 
258 YØ=PEEK(YPOØ):IF Y82178 AND SHLDS! 
LAY+,LAY+1)="a" THEN 256 
268 IF YØYCI9Ø AND MISL$(LAY«CH,LAY4CI 
)="r" THEN 248 
282 IF Y83C288 THEN LAF-C3:60T0 886 
284 POKE YPOS, Y@+LDEL:6070 C278 
268 SHLD${LAY+C1, LAY«C2) "rs" POSITION 
CB,C19:7 SHLDS;:LAF-CI:PDKE IM6Ø, C2Ø: 
6 
OTO C274 
268 NISLS(LAY4C1,LAX+C2)=" ";POSITION 
CH, C21:? MISL$;:LAF=C3:POKE IMGØ, C2Ø 
278 IF LAFCSC3 THEN 282 
272 POKE WIDØ,CI: I-PEEK (1M68) : IF. 1-28 
THEN POKE IM6Ø,C4Ø:POKE AUDCI,14d:POK 
E 
AUDF1, 79 
274 IF [=C4Ø THEN POKE IMBØ,CAØ:POKE A 
UDF 1, 68 


276 IF 1=C5Ø THEN POKE XPOS, C8: Y8-C8;P 
OKE WIDØ,CØ:LAF=C1:POKE AUDCI, CA 

282 IF HITS=60AL AND MF=C1 THEN 988 
284 RzINT(RNDICE) SCIO) : IF ST(R)=3 THEN 
POSITION XiR),Y(R)? " "EEST(R) =a 
298 P-PEEK(RANDOM):IF P<DLY THEN R=INT 
(ND (CH) #019) T RR4R: MISLSIRECL R+C2)=” 
C 

d';POSITION £8,C21:? MISL$; 

294 IF PcBSP THEN BUG=BUG+C1:POKE YPDI 
,BUG:IF BUG}218 THEN 89$ 

295 IF 11=09 THEN I1=C1:POKE IM61,C2988 
6070 389 

298 IF Ii-C£1 THEN I1=CØ:POKE INGI, 188 
388 6070 C284 

318 REM t EHEEEEEEEEE EFE EE EF E GF ERE 
320 REM ## MISSILE DEFENSE FÉ 
338 REM ## 5.0. 9/83 tt 
548 REM EREEEEREREESELESEEEEE EERE SE 
448 C8-8:0121:02-2: 03235 07=75 8-8: C112 
111013212: 014214: 19219: C21221:048248; 
Ü 

192=192;C218=213;C216=215 

482 C218=218;:C232=232: C28=28: C48=48:06 

9=6ñ;U89=88:U1806=-108:U128=120;U1706=178 


å= 
2 


C190- 1987 208-200: (278-278 





418 STICKØ=632:STRIGØ=644: AUDF1=53749! 
AUDC1=53761 : AUDF3=53764: AUDC3=53765 
458 GOSUR 4888:60SUR 18888:DIM SHLDS (4 
#) MISL$38) ,AL$12) 
452 POKE XPDØ,Ø:POKE XPD1,8:POKE XPO3, 
(:LDEL-5:SDUND 8,9,8,0: SQUND 3,8,8, 6 
454 POKE IM62,12Ø:POKE YPO2,299:MDEL=5 
NIDØ=53255 
456 DIM X18) YGB, LE CIL) ,LY (28) STU 
8):8102-53258: RANDOM=53778 
498 GOTO 909 
884 POKE 559,34:POKE 53277,C8:POKE XPO 
8,C@:POKE XPOI,CH:POKE XPO2,CA 
885 GRAPHICS 18:POSITION 4,6: 406;"tH[š3 
EMW" POSITION 1,82? 46; "HIGHEST WAV 
E 
= "SNAVE 
887 FOR V=12 TO 4 STEP -2:POKE 712,14: 
SOUND Ø,PEEK (53778) ,8, V: SQUND 2,79,8,V 


POKE 712,PEEK (5377) 

888 FOR K=! TO 78:NEXT K:NEXT V:SQUND 

8,8,8,8:50UND 1,8,8,8:POKE 712,6 

818 IF STRIG(Ø)=1 THEN 819 

828 WAVE=CØ:G0TO 9686 

389 POKE 559,34:POKE 53277,C@:POKE XPO 

S CH POKE XPO1,C@:POKE XPO2,C8:WAVE-WA 

y 

Eti 

382 SOUND 8,9,9,8:5QUND 

3889;POKE 77,8 

905 GRAPHICS 18:POSITION 4,3:? #43 "PRE 
PARE FOR": POSITION 5,5:? 463 " [ZIEL E 
x 

Pepe” POSITION 6,7:7 #bi wave 8"; HA 

VE 

388 FOR J=1 TO 1888:NEJXT J 

328 RESTORE 922:FOR J=C1 TO RND(CE)s4«* 

C1:READ BHINEXT J 

922 DATA $,88,148,168 

338 RESTORE 932:FüR J=C1 TO RND(CH) #4+ 

CITREAD ALSINEXT J 

932 DATA jk,l1a,no,pq 

348 GOAL=S+WAVE: DLY=28+2#WAVESIF DLY 54 

å THEN DLY=4Ø 

950 BSP=6Ø+2Ø+MAVEIIF BSP>16Ø THEN BSP 

=169 

952 HITS=CØ: GRAPHICS @:POKE 756, CSPAGE 
GOSUB 4188:605UR 4289 

368 POKE 53277,3:PÜKE 559,62:POKE XP02 
,98: 1218: MCOL=5 POKE XPO1,58*RND(8)515 

a 

962 BUG=@:POKE YPOI,CØ:LAF=C1:AMF=CØ 
378 GOTO C288 

3900 FOR J=Ø TO 18:X (J) 2244: LX (3) -4 1 
J) 8: Y (2) -INTIRNDIS) £7) €1:2LY (J) SB Y( 
J 

1*36;ST1J)=ñ;NEXT J:RETURN 


3,8,8, 8: BOSUB 


3999 REM * change character set * 

4808 DIM MCS$i(42):RESTORE 4818:FÜR J=} 
TO 42:READ A:MCSSIJ, J) SCHR$ (A) : NEXT. J 

4618 DATA 184,159,6,133, 203, 133, 285, 16 

9,224,133, 284, 165, 198, 56, 233,8, 133, 184 

24 

1828 DATA 185, 4,133,286, 162, 4, 16,8, 17 

7,283,145, 285, 288, 288, 249, 238, 264, 238, 

å 


46, 202, 288, 242,96 

4038 A=USR(ADRIMCS$)) :CSPAGE=PEEK(1Ø4) 
+4: 05=256#CSPAGE 

4848 RESTORE 4Ø5Ø:FOR J-CS477& TO C549 
27:READ A:PDKE J,A:NEXT JiRETURN 

4858 DATA 85,239,251,254,251,239,85, 0 

4851 DATA 85,251,239, 191,239,251,85, 6 

4952 DATA 2,2,2,2,M, 46,47,47 

4953 DATA 128,128,128, 128 ,136, 184,248 

248 


4054 DATA 255,255,255,255,255, 255, 255, 
255 

4955 DATA 255,3, 
4056 DATA 255,51 
4857 DATA 255,3 
4858 DATA 255,63, 
4859 DATA 128,36, 
4858 DATA 2 


28,35,81, 58, 81 , 63,18, 
2,24, 49, 17, 89,252, 249, i" 
4861 DATA 194, 
4962 DATA 131, 
4963 DATA 15, 


2 


4964 DATA 244,172,91,27,7,3,3,3 

4865 DATA 3,176,15,81,15,42,3, 1 

4966 DATA 192, 176,248,469, 248, 148,192, 4 
4 

4967 DATA 192,176,192, 268,128, 192,64,9 
4968 DATA 3,6,3,13,3,1,3,8 

4999 REM * change display list * 

4188 DL-PEEK (568) +256#PEEK (551) POKE D 
L*3,66:FüR J=DL+6 TO DL+28: POKE J,4:NE 
y 

T JiPOKE 756, CSPAGE 

4118 RETURN 

4200 ? CHR$(125):5HLD$-z"ababababababab 
ababababababababababababab":POSITION 0 


7,39, 151,151,37,9 
ERE LH 
229,228, 288,192, 192, 19 


Oe one 


r 
J 


1 

19:? SHLD$; 

4219 MISL$z"cdcdcdcdcdcdcdcdcdcdedcdcd 

clc 8,21:? AISLE 
228 POSITION 1,23:? "reen: E 





4238 POSITION 3,C0:? "HITS "iHITS:PDSI 


TION 16,082? "BOL ";6DAL:PDSITION 28, 
Ë 

6:? "WAVE ";WAVE 

4259 RETURN 

19909 DIM MVPMSIAB):RESTORE !8858:FOR 
J=1 TO 48:READ AIMVPMSIJ,J) -CHR$ 1A) :NE 
! 

TJ 

10016 A-USR (ADR (MUPMS) | 

18858 DATA 184, 169,8, 141,47,2, 155, 186, 
133, 284,56,232,8, 133, 286,133, 164 

19969 DATA 141,7,212,169,9, 133, 263, 133 
: 285, 168, 167, 8,177, 203, 145, 205,189, 8,1 
å 

5,283, 134 

19978 DATA 288, 245, 198, 204,198, 286, 282 
208, 238, 96 

18168 DIM VBIS(124) : RESTORE. 1Ø15Ø:FOR 
J=1 TO 124:READ A:VBISUJ, J) -CHR$ (0) : NE 
1 

TJ 

18158 DATA 216,162,6,173,156,6,24,1Ø5, 
1,133,286, 195, 3, 133, 204, 169, 8,133,283, 
| 

89, 128, 4 

18158 DATA 271,132, 6, 288,85, 189, 136, 4, 
221,149, 6, 288,8, 189, 144,6, 221,148, 6, 24 
ë 

159, 189, 148, å 

10178 DATA 157,136,6, 189, 152,6, 141, 157 
yb, 188, 144, 6, 169, 8, 145, 283, 29, 206, 157 


J 

5, 248, 248 

19188 DATA 189,152, 6,141,157, 6, 168, 8, I 
89, 146,6, 133,205, 189, 148, 6, 133, 202, 177 


H 
295, 145, 283, 288 
19198 DATA 206,157, 6,208,245, 189, 148, 4 
,157,144, 6, 238 3284, 232, 224, å , 288, 152,7 
5 
98, 228 
18248 DATA 189,132,6, 157, 128,6, 157, 8,2 
48,24, 144, 234 
10368 DIM INVBI$(1@):RESTORE 18338:FOR 
J=1 TO 18:READ A:INVBIS(J, J) CHR (A): 
N 
EXT J 
18318 DIN OUTVBISI18):RESTORE 10348:FQ 


R J=} TO 1Ø:READ A:OUTVEIS (J, J) =CHR (à 
) 


NEXT J 


19528 VBI-ADR (VEIS) :HI=INTIVBI/256) :LO 


LG bl 555 s. -VRI-258*HI: INVBI$(3, 3) -CHE$ (LO) : INVEI 


A REM Previous 


string in inverse characters 


(5,5) =CHR$ (HI) 
18338. DATA 184, 188,0, 162,8, 169, 7, 76, 92 
228 


19348 DATA 194,168, 98, 162, 228, 169,7, 76 
92,228 


18342 GRAPHICS @:PQKE 752, 1:7 GLEMT TG 


[Wa sa ee 

10350 RESTORE 1636Ø:FOR J=1464 TO 1781 
READ A:POKE J A NEXT J 

19368 DATA 9,8,9,9, 165, 185, 171, 161, 168 
, 20, 129,69, 148, 28, 129, 68 

19565 DATA 9,8,8,8,64,152, 129,87,28,2 

128, 28,152, 9,76, 62,58, 74,8, 1,8, 1 

10378 POKE 1492, PEEK (1851 : YPOB- 1568: XP 
01218591 13F02-1678: YP03-1571 

18:88 YP06-1584: YP01- 1585: YPO2-1685: YP 
0321887: ING8z1576: 1M6121577: 186221478: 
I 


M52=1629 





13388 FOR 1-8 TO 3;PDKE 764+J,PEEK(169 
eJ NEXT J 

18388 FOR J=Ø Tü 3:POKE 53258+0,PEEK(! 
89841) : NEXT. J 

18488 PNPG=PEEK (1692) RESTORE 1942Ø:F0 
R J=Ø TO 239:READ A:POKE PMPGE254+256+ 
J 

,AINERT J | 

18418 POKE 823,1: à-USR (ADR CINUBIS) ) RE 
TURN 

(141, 2:411 

18438 DATA $,6,0,0,0,0,8,0,8,8,16, 28,4 
,9,8,8,8,8,0,8 

18446 DATA 6,0,6,8,8,8,15,28,4,49,42,2 
BERANA AAR, 

19458 DATA 15,16,8,5,68,85, 33, 32,8, 8,1 
38, 138, 16,84, 58,9, 8, 48,41, I 

18468 DATA 5,2,8,5,2,8,5,7,8,5,2,8,5,2 
,0,8,8,8,0,8 

19474 DATA 24,24,24,98,98,125, 125,98, 8 
,0,8,8,0,8,0,8,8,6, 9,0 

18488 DATA 0,0,0,8,8,0,6,9,24,24,24,2 
,24,24,24, 0,9, 8, 9,6 

18498 DATA $,2,1,2,7,7,2,8,0,0,8,8, 8,8 
,8,8,8,8,0,8 

19508 DATA 17,17,27,31,21,14,14, 14,14, 
14,4,0,0,6,9,0,8,0,9, 0 

13518 DATA 49,56, 124, 254,84, 176, 0,0, à, 
8,8,0,0,0,0,0, 8,9, 0,0 

13528 DATA 49,56, 124,254, 48, 84, 0,0, 09,8 
,8,9,0,8,8,0,8,0, 0,8 

18538 DATA 211,195,129, 0,8, 35, 36, 34, 36 
138, 38, 36, 36,36, 36, 8,8, 129,195, 231 


by Shane Rolin 


UTILITIES 


I REN FEESELEHELELELEL EERE EERE REE 4444 
2 REM + ATARI COMPUTER ENTHUSIASTS ++ 


3 REM * 3462 VINE MAPLE DR tt 
" 4 REM # EUGENE, OR 97485 ft 
3 REM + $18 YEAR H 


Å REM EEOHEE EE XE EFEEEREEE E FE EEE EERE ESS 
7 REN — EEE EERE LE REESE RES EE EES 
188 REM 

118 REM ROUTINE TO LOAD IN A PICTURE 
128 REM FROM THE USER'S PROGRAM, 

138 REM BY SHANE ROLIN(C-SOFTWARE) 

148 REM 

158 REM SET FILENAMES TO EQUAL THE 

169 REM NAME OF THE FILE TO BE LOADED 
178 REM IN. 

188 REM 

288 DIM MACHINES (31) ,FILENAMES (20) 

218 TRAP 589 

228 GOSUR 379 

238 OPEN #2,4,8,"K" 

248 A-PEEK(788):B-PEEK (789) :C-PEEK (718 
) : DzPEEK 1712) : MODE=7: SCRNUMS 7588: E-8: Y 

y=13 

268 GOSUR 368 

296 OPEN $1,4,8,F ILENAMES 

298 GET #1,F 

380 MODE-8:60SUB 358:POKE SCRADDR, Fi 5C 

RADDR-SCRADDR* 1: SCRNUM-SCRNUM-1:6070 3 
18 

318 POKE 859, 7:PICTURELOAD=USR (ADR (MAC 

HINES), 16, SCRADDR, SCRNUM) 

328 CLOSE #í 

338 REM 

331 REM THIS 15 WHERE THE ROUTINE TO 

332 REM LOAD AND DISPLAY THE PICTURE 

333 REM ENDS. HERE SHOULD RE PLACED 
334 REM A DELAY STATEMENT TO HOLD THE 
35 REM PICTURE ON THE SCREEN FOR AN 

36 REM AMOUNT OF TIME. 

Sñ GRAPHICS MODE*15:C-6:SCRADDR-PEEK ( 

88) +PEEK (89) #254 

368 POKE 788,8:POKE 789,R:POKE 719,C:P 

OKE 712,D: RETURN 

378 FOR READR=1 TO 31 

388 READ A 

338 MACHINES (READR, READR) -CHRS$ (A) 

488 NEXT READR 

418 RETURN 

424 DATA 184,103, 194,178, 184, 157 

438 DATA 69,3, 184,157, 58,3, 104 

448 DATA 157, 73,3, 194,157, 72,3 

358 DATA 32,84, 228,192,9,48,1, 96 

468 DATA 132,283,964 


2 
2 
* 
à 
> 
A) 
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188 REM -Z-z-2z-2-z-z2-z-z-2-z-z-z-z- 
185 REM 

118 REM --DECIMAL TO HEXADECIMAL--- 
115 REN -------- CONVERTER---------- 
128 REM ----ORIGINAL VERSION BY---- 
128 REM ------- RANDY RHÜDES-------- 
139 REM --MODIFIED BY SHANE ROLIN-- 
135 REM ------- OF C-SOFTWARE------- 
148 REM 

145 REM -z2-z-z-z-z-s2-z-z-z-z---z-z- 


158 ? CHR$(125) 
155 DIM B$(56) 

168 FOR T=1 TO $Ø 

165 READ Å 

178 BAIT, T) -CHR$ (A) 

175 NEXT T 

188 DATA 164, 194,141,212,8, 184, 141 
185 DATA 212,8,158,4,173,212, 8, 41 
198 DATA 15,78,213,6,118,212,8, 78 
195 DATA 213,0, 118,212,0,78,213,8 
268 DATA 116,212,8,78,213,8, 118, 212 
285 DATA 8,24, 185,48, 281,58, 48,2 
218 DATA 165,6,261,71,15,8, 153, 282 
215 DATA 8, 136, 288, 268, 95 

228 ? “INPUT DECIMAL NUMBER" 

225 INPUT Å 

238 Y-USR (ADR (R$) ,A) 

235 FOR 1-283 TO 286 

248 FOR T-1 TO &6:NEJT T 

245 ? CHRSIPEEK(T))j 

258 NEXT I 

255 ? :? :6070 220 


188 REM CICICICICICQICICICICICICIC 
193 REM 
118 REM --HEXADECIMAL TO DECIMAL-- 


113 REM -------- CONVERTER- -------- 
128 REM ---ORIGINAL VERSION BY---- 
125 REM ------ RANDY RHODES-------- 
138 REM --MODIFIED BY SHANE ROLIN- 
135 REM ------ OF C-SOFTWARE------- 
148 REM 


145 REM CILILILMICICICILICICICIC 
158 ? CHR$(125) 

155 DIM B$173) ,a$ (18) 

166 FOR T=1 TO 73 

165 READ A 

178 B$IT, T) -CHR$1A) 

175 NEXT T 

IBA DATA 194, 194, 133, 285, 1Ø4, 133, 284 
185 DATA 184,184, 133, 286, 149,0, 132 
198 DATA 212,132,213, 177,204, 201,48 


3 
3 





$428 (CMP #947 ¿= ASCII "F" ? 


195 DATA 48,49, 201, 44,48, 11, 281, 45 0418 ; SAVE CHARACTER 9478 BPL RETURN ND. ERROR 
200 DATA 48,41,201,71,16,37, 24, 185 9428 ; 9448 ; | 
285 DATA 9,41, 15,6,212,38,213,6,212 8438 STA SCA, Y 8458 ; — ALPHA CHARACTER 
218 DATA 38, 213,6, 212,38, 213, 6, 212 9449 DEY NEXT LOCATION "B 
215 DATA 38,213, 24,181,212, 133, 212 8458 BNE  NXTCHR NO, 60 BACK 4478 CC CLEAR CARRY 
228 DATA 165,213, 185, 8,133, 213, 280 | 8478 ; 8488  ADC 49 ADD ALPHA OFFSET 
225 DATA 195,286, 288, 281,96 0480 RETURN 2498 : 
238 2 :2 :2 f? "INPUT HEXADECIMAL NUMB 4498 RTS RETURN 4588 NUMER 
ER" $495 += 212 8519 AND  #$F — DUMP TOP BITS 
235 INPUT A$ | 4588 TEMP MORD $ 8528 ASL — 212 MULTIPLY CURRENT 
248 X=USR (ADR (BS) , ADR (5$) , LEN (A$)) $518 END 8538 ROL — 212 RETURN VALUE BY 
245 ? "HEY NUMBER--"3A$;" DEC NUMBER- 8548 ASL — 212 — BY (5 
UH 8556 ROL — 213 
258 GOTO 238 0568 ASL 212 
4578 ROL — 213 
$588 AsL — 212 
4598 ROL — 213 
Assembly løj; — HEX TO DECIMAL CONVERSION dk 
6518 ; — ADD IN THIS NIBBLE 
ñ i 8528 ; 
: , 38 ; CALLED FROM BASIC 
oos $&d8 STARTING ADDR i 3 i ARRY 
jh i 46 ; X=USRIHEXDEC, STRADR, STRLEN! veker 
Ag ; | 8648 ADC 212 ADD TO LSE 
58 ; HEXDEC - ENTRY POINT | | 
54 DECHE) p $556 STA — 212 SAVE LO BYTE 
bf i STRADR - ADDRESS OF HEX 
åg PLA DUMP # BYTES l 8568 LDA 213 GET HI BYTE 
78 | STRING ARRAY | 
78 PLA GET HIGH BYTE — STEM = ARRAY LENGTH 8578 ADCO — 48 ADD IN CARRY 
88 STA TEMP+I SAVE bs Ç | l 8586 STA 213 SAVE HI BYTE 
98 PLA LO DATA BYTE Mes ; 9499 | 
8180 STA TEMP SAVE ses $788 INY NEXT CHARACTER 
8118 ; E, I 0718 CPY $CE — DONE YET ? 
4126 LDY 44 INIT POINTER r i dic ONR $728 BNE — NXTCHR NO NEXT CHAR 
8138 | d 2734 ; 
8146 NXTCHR Ad i DUNP 3 BYTES #746 RETURN 
8158 LDA TEMP GET HEX DIGIT : | 8758 RTS RETURN 
$155. AND — #$F KEEP LOWER NIBL iori ARRAY ADR (HI) — og END i 
dn 8178 STA — $CD — SAVE HI BYTE TO 
33 mua — — qe 
8188 ROR — TEMP rum 
8198 LSR — TEMP+1 DIVIDE 
B209 ROR — TEMP REMAINING — — 
$219 LSR — TEMP+! NUMBER BY 16 ds T rc — SAVE å CHARS — 
9228 ROR TEMP pie I eri — 
} 


#238 LSR TEMP*1 


4049 ROR — TEMP $258  LDY — 36 CLR INDEX 


82568 STY 242 CLR RETURN ARGS 


9258 ; 
9268 | A HAS NUMBER TO CONVERT $208 ST 2 
8278 | 8289 | 

8288 CLC CLEAR CARRY 8298 NXTCHR 


$308 LDA ($CC),Y NEXT CHAR 
$319 (CMP — M38 < ASCII 8 
$328 BMI RETURN YEP, ERROR 
9538 


8299 ADL #439 CONVERT TO NUMER 
#388 CHP #$35A 4 ASCII 9 ? 
$518 BMI NOADD NO, DONE 


a 


9328 ; 

$321 ; — MUST BE LETTERS A - F aR THE, ERT 
8322 | 8358 BMI NUMER YES, MUST BE NUM 
$338 ADCO 46 CONV TO ASCII . . 

8348 NOADD pol ; TEST FOR ñ - F 

0370 | 8388 ; 


8386 CMP — 4$47 GREATER THAN "F" 8398 CHP — $41 < ASCII "AY 
8480 BMI RETURN 


$398 BPL RETURN YES, QUIT he 
9408 ; 9418 § 
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MicroDos Assembly Listing Con”t 


88999 
81888 
81818 
91828 
81038 
61334 
01856 
018683 
91078 
01839 
01898 JUMP 
61190 + 
811139 + 
61128 t 
311389 DIR 
91148 
01159 
81166 
21178 
811B8 CLOSE] 
81198 

81208 
21218 

81228 
91258 

01248 


81418 
214328 PRINT 
81438 
01349 
81458 + 
81468 BAD 
81478 
$1488 
81498 
21588 
81518 
81528 
81538 LOCK 
81548 


SBC #$31 
CHP 39407 
BGE START ` 
ASL 

TAX 


sConvert it 
;Legal? 


; #2 for 2 byte addresses 
rUse as index 


LDA COMMANDS, X :Move cosaand's 


STA JUMP+1 
INX 


;address 


LBA COMMANDS, X 


STA JUMP+2 
UMP $6080 


Command Modules 


sAnd go for it. 


81558 UNLOCK 
#1568 

81578 DELETE 
81586 

81598 RENAME 
$1588 NEXT 
81618 

$1528 

815358 

$1549 

81558 

$1668 

81578 

$1588 


LDA #34 

JMP NEXT 

LDA #33 

JMP NEXT 

LDA #32 

LDX 3$18 — Use IDCB $i 

STA ICCOM,X Store Command 

JSR PROMPT Second Prompt 

JSR EGETREC :Bet input to Printer buffer 


LDX $18 sJust to be sure 

JSR CONTINUE File name is in Printer buffer! 
TYA iCheck for error 

BMI BAD 

JMP START tok-back to menu 


JSR PROMPT Print second prompt 
JSR EGETREC jGet drive # 

LDA INBUFF ibet first character 
BMI CLOSE! zif 3128 default to i 
STA DIRNAM+1 :else store ascii 

LDX 3418 Make sure it’s closed 
JSR CLOSETT 
LDA $0PEN 
STA ICCOM, X 
LDA #0PDIR 
STA ICAX!,2 
LOA #DIRNAM point to Dx:s.* 
LOY /DIRNAM 


;Open #1 


$for directory read 


JSR CI060 jOpen it 
T¥A «Error? 
BMI BAD i Yes 
LDX $18 iNo- 


LDA #GETREC ;6et Directory read 
STA ICCOM, X 
JSR CONTINUE 


CPY 4488 Check for EOF 

BNE PRINT Else go print it 
LDA 4$31 ;Reset default to Di 
STA DIRNAM+! 

LOX $4168 ‘Close ål 

JSR CLOSEIT 

LDX #488 

JSR EGETREC Hait for return 
JMP START 

LDX #449 


JSR EPUTREC iPrint it on screen 


JMP OK ;Back for more 

STY $89 150 Basic can find it 
LDA 3331 sReset Default 

STA DIRNAM+I 

LOX #918 Close $i 

JSR CLOSEIT 

LDA #498 :And let BASIC 


JMP BASICERR do the work 
LDA #35 Special 
IMP NEXT iNo open required 


RUTH LIST 


10 *S@UARE 

20 GR: CLEAR; 
GOTO 0,03 
TURNTO 0 I 
30 GR: 4 (DRAW 
305 TURN 90) 

40 E: 


10 #SQUIRL 


= GR: CLEAR; 
GOTO 0:103 
TURNTO © j 
0 Azt#A [SIDE 
LENGTH 


40 A:4B LANGLE 
50 AHC [STEP 


60 *DRAW 
Zo GR: DRAW 
HA: TURN #8 


90 Cl#A=#A+#C 
90 J: *#DRAW 
POOIE; 


TO SQUARE 
REPEAT 4 
30 RT 903 
END 


EFD 


TO POL YSPII 
:30TDE > ANGLE 
: INC 

FD «SIDE 
RT ANGLE 
FOLVSFITI 
-SIDE + 

: ANGLE : INC 
END 


= INC 
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PILOT 

10 «SQUARE 

20 GR: CLEAR; 
GOTO O, O; 
TURNTO O 

30 BR: 4 (DRAW 
303 TURN 90) 
40 E: 

LOGO 

TO SQUARE 
REPEAT 4 
30 RT 901 
END 


LFD 


PILOT 

10 *SQUIRL 

20 GR: CLEAR; 
GOTO O, O03 
TURNTO 0 
30 AIHA 
LENGTH 
$0 AHH [ANGLE 
50 A:HUC [STEP 


[SIDE 


50 *DRAW 
70 GR: DRAW 
$A; TURN HB 


90 C:HA-HA+tRC 
970 J: *DROMW 

100 E: 

LOGO 

TO FOL YSFII 
SIDE : ANGLE 
: INC 

FD :5SIDE 

RT ANGLE 
POL YSEII 
SIDE + 

; ANGLE : INC 
END 


= INC 


PILOT ELLSWORTH 


LEARNING WITH LOGO OR PICKING PILOT 
(A Comparison of the PILOT and LOGO Languages) 


Parents, educators, and beginning programmers who own ATARI 
computers now find themselved faced with the dilemma of choosing 
the language which will best meet their needs. While both PILOT and 
LOGO are considered introductory languages, each has some very uni- 
que characteristics which should be taken into consideration when an 
“either or" choice must be made. 

Perhaps, the first difference noticed between LOGO and PILOT after 
booting is the difference in editing procedure. Editing in both 
languages in the Edit Mode is very easy. PILOT, being like BASIC, ac- 
cesses the Editor through the LIST command and allows full cursor 
control. It has the added advantage over BASIC of having an AUTO 
numbering and RENumbering function in the Editor. 

The Editor is called in LOGO by the command, EDIT "name of" pro- 
cedure. There is a full range of edit commands in LOGO, but no ability 
to edit in the immediate mode as procedures are being developed. We 
find this inability causes a considerably greater amount of typing and 
frustration to a beginning programmer, and the first plus for PILOT. 

Structurally LOGO, which is a subset of LISP, is like PASCAL; 
PILOT is like BASIC. Both languages encourage structured programm- 
ming, although PILOT is not as tightly sturctured as most languages 
and allows beginners more freedom. PILOT requires line numbers, 
LOGO does not. PILOT uses modules around which programs are 
built, while LOGO requires them. Like PASCAL or FORTH, LOGO is 
completely modular, and fully expandable. In LOGO a defined pro- 
cedure is treated like a built in command. This ability becomes an im- 
portant plus for LOGO in more complicated or creative programming. 

Each of the languages has structural abilities the other lacks. PILOT 
has the MATCH command which easily allows the creation of interac- 
tive instructional programs or games with a mimimum amount of pro- 
gramming or effort. LOGO has the ability to handle LISTS which 
allows one to write programs dealing with symbolic manipulation, or 
complex data structures without having to encode them in 
mathematical terms or strings. LOGO also has the ability to use recur- 
sion, which is the ability to define a problem in terms of itself. 

This concept, which can be quite confusing, may be explained in 
mathematical terms as being similar to the factorial of a number, X be- 
ing equal to X (X-1) factorial. For me, a nonmathematical person, it is 
easier to think of recursion as being like a pudding cake. Both the 
cake and the pudding use themselves and parts of the other in the in- 
complete state to come out with the finished product. This ability of 
LOGO makes possible very sophisticated programming. In my opi- 
nion, understanding recursion will help one to learn more of the com- 
plicated concepts in computer sciences as well as the nature of 
linguistics and thought processes in general. 

Screen output is superior in PILOT. The screen is automatically 
cleared when a program is run. Text is broken only at the end of a 
word, making it easily read and the product neat in appearance. PILOT 
also has three text modes: Gr.0, and oversized text modes 1 & 2; LOGO 
has only Gr. 0. 

Sound in both languages is good. PILOT is slightly inferior since it 
allows four voices and control of duration, while LOGO allows two 
voices with control of both volume and duration. 

Both languages allow practically unlimited lengths for variable 
names. Neither requires dimensioning. Both lanuages allow global 
variables (constant during a program). Only LOGO allows local 
variables which are used in a procedure then discarded. This permits 
their later reuse with different meaning in the same program. PILOT 
uses numerical and string variables similar to BASIC, and has a max- 
imum of 26 numerical variables per program. LOGO considers all 

| variables as “objects”, numerical variables being viewed as words 

| made up of digits. LOGO has the ability to manipulate variables in 
LISTS and to use them in recursion which PILOT does not, while 
PILOT has the ability to combine text literals with variables without 
designation as text literals making it easier for a beginner to write pro- 
grams with screen or printer output. 

PILOT is much easier to debug than LOGO because it contains a 
TRACE command which allows the programmer to view the lines be- 
ing used as the program progresses. This command is extremely 
useful. In my opinion it does not slow execution speed enough for 
beginners, but when the listing is interspersed with PA: commands to 
make the program run slowly, it becomes indispensable to beginners. 
PILOT also supports Remark statements, which LOGO does not, 
allowing explanations to be added for beginners or children. 

Both languages support Turtle Graphics. LOGO has superior Turtle 
Graphics since up to four turtles can be visible if desired. LOGO also 
has a collision register, speed control, and either full or split screen 
graphics display. PILOT has an invisible turtle, and only split screen 
display; but it does have a fill command which greatly enhances 
graphics displays. The PILOT Turtle is very much faster than the 
LOGO Turtle(s). 
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The accompanying chart gives a thumbnail sketch of the major dif- 
ferences and abilities of LOGO and PILOT. In my opinion, PILOT is the 
language best suited to parents, educators, and those interested in 
programming who do not have the time or inclination to become deep- 
ly involved with programming languages and skills. It allows easy 
adaptation of text materials into electronic media, and programming 
using matching. Most instructive materials used by parents and 
educators, and simple game type programming written by children will 
fall into one of those two categories. 

The question which | am inevitably asked next is: Why LOGO? 
LOGO is a more sophisticated language which has the ability not only 
of manipulating more complicated data, but in my opinion, has the 
ability to develop in children a more creative approach to problem solv- 
ing and a more structured, scientific if you will, way of thinking. The 
ability to manipulate LISTS makes linguistic-type programing available 
as well as the beginnings of programs that "learn." 

There are numerous concepts of mathematics and physics which 
can be taught painlessly through the use of LOGO Turtle graphics 
because of the inclusion of speed control and recursion. In short, | 
believe the LOGO type languages are the languages of the future. 
They may not be of necessary or even of interest to everyone. 

Unlike PILOT, LOGO will take some time to learn, and | recommend 
persons interested to take a class of some kind in LOGO. For those 
who cannot, the following are recommended: LOGO by Harold 
Ableson (the blue book); THE TURTLE'S SOURCE BOOK by Beaden, 
Martin, and Muller; and TURTLE NEWS and LOGO NEWSLETTER 
published by the Young Peoples' LOGO Association, Inc., P.O. Box 
855067, Richardson, Texas 75085. 

The two short modules which follow are purely for demonstration of 
the difference in the coding of simple graphics procedures. The 
modules do not include printed prompts, although they require value 
input for the three variables used. To use the POLYSPII LOGO pro- 
cedure, one must type POLYSPII followed by 3 values. To use the 
PILOT module, one must type U:*SQUIRL then type each value follow- 
ed by return when the graphics screen appears. 

Next month I will continue my regular PILOT articles, including the 
program translated into LOGO with notes on the necessary changes. 
Later | will be preparing and explaining programming which uses the 
unique abilities of LOGO, as well as continuing to share some of the 
things we are doing with PILOT in our home. 


LOGO - PILOT COMPARISON CHART 
LOGO PILOT 

EDITOR 

Full cursor 

Renum and Auto 

Immediate mode 

SCREEN OUTPUT 

Auto clear 

Does not break words 

Multiple text modes 

SOUND 

Voices 

Duration control 

Volume control 

VARIABLES 

Local variables 

Global variables 

No dimensioning 

Unlimited name length 

Maximum # variables 

Mix with text literals 

Data Types 

Numeric 

Strings 

Words 

Lists 

DEBUGGING 

Trace command 

Remark statements 

STRUCTURE 

Line numbers 

Modular 

Encourage structure Best 

Recursion 

List processing 

"Matching"function 

Data manipulating 

Random Access 

TURTLE GRAPHICS 

Visible Turtle 

Multiple Turtles 

Speed Control 

Collision register 

Fast execution 

Fill command 

Full screen graphics 

Split screen graph. 


XXX X Zx x 
> 
> 


> > > 


> > 
> 


NA 
NA 


Not completely 


one None 


NX XX XX XX XX Z XXX X X G X XX XX MXM SS XXXXXX XXN 


OCKERS 


Missile Defense 


Here’s a program to demonstrate the use of PMHelper 2.0 from last 
month. I've restricted myself to using Basic except for the VBI routine 
produced by PMHelper and something to move the character set. All 
sorts of techniques were tried to increase the speed of the program, 
but there were quite a few decisions involved as you can see by 
reading the line-by-line breakdown of the main loop. 

Your job is to protect your fuel supplies from approaching aliens. 
Move the joystick left and right to select a missile and press the but- 
ton to fire. Be sure and remove the shield above your missile first by 
pulling back on the joystick. It can be replaced (if not destroyed) by 
pushing the stick forward. Your missiles will be replaced at random. 
Missiles from the aliens will destroy first the shield, then the rockets 
and finally the fuel which will end the game. 

With each wave you will have a goal of hits to reach. Once the goal 
is reached, a new wave will be started with all your shields and 
missiles replaced. 

The object is to go through as many waves as possible. Oh yes, 
there is an indestructable enemy ‘bug’ decending on you. If it reaches 
your fuel supply, the game is over. 

A comment on using PMHelper 2.0 ... If the module is used last, 
memory must be lowered in 8 page increments to make room for items 
above it. | found out the hard way that the module clears one page 
above itself (a bug). In the case of this program I’ve just put the 
character set in the top 4 of the 8 pages and not bothered to fix the 
bug. 

Lines 10000 and up are the PM module. If you have it already all you 
have to change is the data in lines 10360, 10365 and 10420 through 
10530 


Program Structure 
Missle Defense 


200 If missle active, skip 

202 Ck. joystick, move pointer right 

204 Move pointer left 

206 If down and shield in place, remove 

208 If up and shield removed, replace 

210 Skip if trig. not pressed or no missile 

216 Else activate missile 

218 Skip if missile not in flight 

220 Missile moved up screen 

222 |f off top, put pointer back 

224 |f hit shield, print destroyed shield and activate explosion 
226 Ck if hit active alien, if not skip 

228 Remove alien, activate explosion, increment hits 
230 Ck if hit alien missile, if so activate explosion of both missiles 
232 If missile explosion not active, skip 

234 1st part of missile explosion 

236 2nd part of explosion 

238 3rd part of explosion 

240 End of explosion, back to pointer 

242 Activate alien depending on delay and condition of alien 
244 Materialize alien at random, only if activated 

246 If materalizing, generate sounds 

248 If not available to fire, skip 

250-254 Activate alien missile at random, alien must be there 
256 Skip if alien missle not moving 

258 Check for hit of shield 

260 Check for hit of missile 

262 Check for hit of fuel 

264 Advance alien missile 

266 Hit shield, activate explosion 

268 Hit missile, activate explosion 

270 Skip if explosion not active 

272 1st part of alien missile explosion 

274 2nd part of explosion 

276 3rd part of explosion 

282 Check for goal reached 

284 Remove alien at random 

290 Add a missile at random 

294 Advance bug, check for reaching fuel 

296-298 Alternate bug images 

300 Back to start of loop 
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STEALING THE DOS VECTOR 


, (And getting away with it!) | 

Pointers, vectors, what the heck are they talking about? And why do 
| want to steal a vector? Well, | want to show you how we can use the 
DOS command vector at memory locations 10 and 11 to install a 
memory resident utility to perform many of the most used DOS com- 
mands, without having to wait for DUP.SYS to load in, and without los- 
ing whatever BASIC program we have in memory at the time. 

There are many locations in the Atari's memory which we call 
pointers or vectors. These are simply two bytes contai ning an address. 
This address is usually the beginning of a machine language routine 
to be performed. Such a vector exists at memory locations 10 and 11, 
the DOS vector, or DOSVEC for short. This is the address the com- 
puter goes to whenever we type the command "DOS"from the 
keyboard. 

Since Atari Basic is in ROM memory, so are most of its pointers for 
its different commands, i.e., LIST, RUN, etc. Only one command, the 
DOS command, has a vector in RAM. Since it is in RAM memory, we 
can change it to whatever we please. 

For those of you who are still having a little trouble understanding, 
try to imagine the computer as a very forgetful person. So forgetful in 
fact, that he has to keep the addresses of where he lives, where he 
goes to school, what number to use when he calls home. . .OK? Well, 
what happens to this forgetful person when we sneak in and steal the 
address for where he goes to school and leave the address for a local 
bar in its place? School takes on quite different meaning! 

This is precisely what we are doing in our example program, 
Quikdos. All we need to do is replace the address in DOSVEC with the 
beginning address of our program. That way, whenever we type DOS 
from the keyboard we will go directly to Quikdos. Voila, a simple way 
to hook extra little machine language utilities into BASIC without hav- 
ing to remember some obscure USR command. 

There is one small problem to this approach. Whenever the RESET 
key is pressed, the operating system cleans up its pointers and resets 
them to their original values. Like | said, just a small problem. The 
values to use to reset DOSVEC are also in RAM memory at addresses 
5446 (lo) and 5450 (hi). If we change those addresses too, even a 
system reset can't wipe out what we have done! What power! 

You might want to try typing in the following lines of BASIC code 
just for fun. To illustrate the use of the DOS vector, let's detour it right 
back to BASIC. Not of much use, but it does illustrate a point. 


10 REM BASIC starts at $A000 (40960) 
20 REM Calculate pokes 

30 ADDRESS - 40960 

40 HI = INT(ADDRESS/256) 

50 LO = ADDRESS-(HI *256) 

60 POKE 10,LO:POKE 11,HI 

70 POKE 5446,LO:POKE 5450,HI 

80 END 


After typing in these lines,(you can, of course, leave the REM 
statements out), run the program and then type DOS and hit the return 
key. If all goes well, al! you will get is the READY prompt. Type LIST 
and you'll see the program is now gone. That is because 40960 is the 
BASIC coldstart address and BASIC has reset its program pointers. 
Oh well, you didn't want to save the program anyway! Try the system 
reset key now and then try DOS again. There is no escape. The real 
DOS is apparently gone. It isn't really gone, but until we either change 
DOSVEC back or power down, it can't be found. 


Now for the example program Quikdos. 

Quikdos is a memory resident utility which provides immediate ac- 
cess to the most used DOS commands without destroying the BASIC 
program currently in memory. | don't know about you, but most of the 
time when I go to DOS, all | want is a directory of the disk files. But 
unless | have a MEM.SAV file on the disk, | lose my BASIC program in 
memory. And if | do have a MEM.SAV file, it takes an unacceptable 
amount of time just to get a disk directory. Enter Quikdos. 


Typing in Quikdos. 

Format a diskette and write DOS files to it. Make sure you are using 
DOS 2.0! 

Type in the BASIC loader program and SAVE IT TO THE DISK. This 
is very important since just one wrong number in the data statements 
could cause your computer to go to never-never land and you will have 
to power down, and all the work goes down the drain. 

Make sure the same diskette we just prepared is in the drive and run 
the program. If all goes well, you should hear the disk drive start up, 
write, and then the words ALL DONE will be printed on the screen. 

Once again, make sure the BASIC program has been saved to the 
disk and turn the computer off and then back on again. 

You should hear all the normal things happen and the READY pro- 
mpt appear on the screen. Quikdos is now installed and ready to use. 
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Using Quikdos. 
Upon typing the DOS command from BASIC, you will be presented 
with the Quikdos menu and the right bracket prompt will show you 
Quikdos is waiting for your command. 
There are seven Quikdos commands. 
1. Disk Directory 
2. Return to Basic 
. Lock a file 
. Unlock a file 
. Delete a file 
. Rename a file 
. Go to the Atari DOS menu. 
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At this point simply enter the number corresponding to the com- 
mand you want. If the command is anything other than 2-BASIC or 
7-DOS, you will be presented with a second right bracket prompt. For 
the Directory command, enter the number of the drive you wish to read 
or just hit RETURN for drive one. After displaying the disk directory, 
the display will pause until you hit RETURN again. Then the screen 
will clear and the Quikdos menu will reappear. If you make an error, 
the error number will be displayed and you will be returned to BASIC. 

For the commands Lock, Unlock, Delete, and Rename, the second 
bracket prompt means Quikdos is waiting for you to enter the name of 
the file to be processed. Enter the file name exactly like the Atari DOS 
manual teaches for its corresponding DOS commands. Don't forget 
the D: preceding the name. For the rename command, the first 
filename should be followed by a comma followed by the new name 
(without the D:). Once again, any error will display the appropriate error 
number and return you to BASIC. Wildcard characters can be used, 
but be aware that Quikdos will not ask you to verify when deleting a 
file. This feature was left out due to memory considerations. 

Should you wish to use the Atari DOS for copying files or whatever, 
just use command #7. 

BEWARE!! 

Writing DOS files while Quikdos is still connected can be 
disastrous. Dos will permanently change its vectors to Quikdos' and 
command 47 will send you right back to Quikdos. If you must write 
DOS files, boot up with a "clean" version of DOS. 

Quikdos uses all of page 6, the cassette buffer, and the printer buf- 
fer for input. This was done to avoid using any of BASIC's program 
area. If any application program uses page 6 for any reason, Quikdos 
wiil be mutilated and could crash the system. Using the cassette with 
Quikdos will also cause instant death when the DOS command is ex- 
ecuted. Since the printer buffer is used for input only, use of the 
printer will not adversely affect Quikdos. The Monkey Wrench from 
Eastern House Software will not function with Quikdos since it uses 
page six for variable storage. 

There are still many things other than just executing DOS com- 
mands, though, that can be hooked into BASIC via the DOS vector. 
Possibly many of you have ideas for programming utilities you might 
find useful. Let's hear from you! 

— Bob Luce 


UPPERCASE AND LOWERCASE 


IN GRAPHICS ONE AND TWO 

In the last issue of the newsletter, | mentioned it is possible to have 
both uppercase and lowercase letters at the same time in graphics 
modes one and two. Since then several of you have asked how it can 
be done, so | have put together a short program to explain how it’s 
done. In the process | got a little carried away, and | have also included 
a subroutine to checks user input for correct responses, and a 
backspacing routine for graphics one and two. 

| am going to go through the program explaining the major pro- 
cesses pretty much line by line. For some of the more advanced pro- 
grammers out there this may seem a bit too detailed, but bear with the 
rest of us and we'll all learn together. If you have a faster or better way 
to do this let me know. 

LINES 10-130 are the dimentioning and initializing section. 

30 opens the keyboard to be read for input. 

40 moves RAMTOP to reserve memory for the character set to be 
moved. 

60 turns the cursor off. 

90 moves the entire character set. 

100 replaces the control graphics characters with the uppercase 
characters. 

110 moves the punctuation marks so they may be used. 

120 makes the-first character (ATASCII 0) a blank. See what happens 
if you remove this line. 

LINES 140-370 are the main program lines. Here is where your pro- 
gram will be. 
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170 sets the parameters for an input from the user. See line 300 
also. 

190 tells the computer where the new character set is located. This 
line must be repeated evertime a GRAPHIC statement is made. 

200-230 here the print statements are entered just as they normally 
are to produce multiple colors in graphics one and two. 

240-270 here the print statements are altered to use the new 
character set. These will produce upper and lower case letters at the 
same time by using control graphics characters in place of capital let- 
ters. When typing the print statements, you must use the correspon- 
ding graphics key in place of the desired capital letter or punctuation. 
Change the text of line 240 using this method and watch the results. 

290 prints each character on the screen one at a time at location 1,5, 
and at the same time prints the corresponding ATASCII number in the 
text window. Note: when character 125 is printed it will clear the 
screen. 

If you have the patience this line will enable you to chart where each 
character and color group is located by ATASCI value. But if you have 
access to a copy of “Your Atari Computer” it is easier to look on page 
345. They have done all the work for you, and it helps take some of the 
mystery out of the moved characters. Also, look at Appendix D to find 
out what keystrokes produce which characters. 

300 is a text line asking for an input from the user. It asks a question 
and then sets the parameters for the input. MAX = maximum length of 
the answer. XX = X co-ordinate of the position statement. Y = the Y co- 
ordinate. NUM or LTR determines whether the answer is to be upper- 
case only, upper and lowercase, or numbers only. NUM =1 for 
numbers. LTR=1 for uppercase. LTR=2 for upper and lowercase. 
GOSUB either 380 for letters or 390 for numbers. The POKE is to clear 
the last key pressed. | 

340 prints the answer in the altered character set and the true 
character set. The true value of the answer is stored in ANS2$. 

350 and 360 accept the ending flag. 

400 and 420 disables the break key. 

430 clears the last key pressed and turns on either the uppercase or 
lowercase character set. 

460 gets a key and looks for the back space key. 

470-550 sets the parameters for which keys are to be accepted. | 
have set the parameters as shown for a program | am working on. You 
can set them to accept any key you want by stating its ATASCII 
number as shown. 

570 alters the ATASCII value of the apostrophe for the new 
character set. 

600 alters the ATASCII value for the capital letters. 

620 counts the letters and positions them in a siring. 

LINES 660-720 are the back spacing routine for graphics one and 
two. 

LINES 730-770 contain the subroutine to position and print each 
character on the screen in any of the text graphics modes. It can also 
be used to print whole statements as it was in line 360. In along pro- 
gram with many position statements this can save memory. 

780-710 is used to print ANS$ and ANS2$ and their ATASCII values 
in the text window. 


There are some drawbacks to redefining the character set as it was 
done here. The main disadvantage is we've lost the ability to easily 
display numbers and graphics characters. If you need to display 
numbers and graphic characters, you will have to use the standard ap- 
proach to text display when in graphic modes one and two. 


In case you were wondering why anyone might want to go to all this 
trouble just to have upper and lowercase on the same screen, and be 
very selective in what keys the user is allowed to enter, I'll give you 
something else to think about. We, as a users group, are trying to in- 
crease the quality of the software available to us, and it's little things 
like use of upper and lowercase letters which make a program visually 
and gramatically correct. Checking each key for correct input means a 
program will be harder to crash, and incorrect information cannot be 
entered. 

Educational software is the fastest growing field in home computer 
software, and if we let the writers know now we are not going to use 
poorly written programs, we may be able to steer them in the right 
direction from the beginning. By learning what can be done with our 
computers we will be less likely to accept second rate programs. 

| hope you have been abie to follow what was going on. If you have 
learned something this has really been worthwhile. For a more com- 
plete explanation on redefining character sets read chapter three of 
"Compute!'s First Book of ATARI Graphics". Questions, comments, 
and curses will gladly be accepted and answered as soon as possible. 

— Robert Browning 


TYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line’ 
And it’s easy to encode your copy with the few typesetting 
commands you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


editing & Design Services 


Ime. 
30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


Best of ACE books 


Volume 1 are bound issues of the ACE Newsletter from the first issue, 
Oct 80 to June of 1982 


Volume 2 covers July 1982 to June 1983 


Only $12 each ($2 extra for Airmail). Available only from: 


George Suetsugu 

45-602 Apuapu St 

Kanoehe, HI 96744 

SortFinder 1.2 

Composite index of Atari related articles from 5 popular computer 
periodicals from Apr ‘81 to June ‘83, including ACE. Only $6 for ACE 
member from: 


Jim Carr, Valley Soft 
2660 S.W. DeArmond 
Corvallis, OR 97333 
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Atari Computer Enthusiasts 


A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to the Atari Company, a division 
of Warner Communication Company. We are a group interested in 
educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 


All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $10 a year for U.S., and $20 a year Overseas Air- 
mail and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 


* *President— 
503-689-5355 
Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, Or 97405 / 
503-686-1490 

Secretary — Charles Andrews, POB 1613, Eugene, Or 974401613 
503-747-9892 

Librarian— Ron and Aaron Ness, 374 Blackfoot, Eugene, Or 97404 , 


Kirt Stockwell, 4325 Sean , Eugene, OR 97402 


(503)689-7106. 
Editors— Mike Dunn, 3662 Vine Maple Dr., Eugene, Or 97405 
503-344-6193 

Jim Bumpas, 4405 Dillard Rd. Eugene, Or 97405 
503-484-9925 


E.R.A.C.E. (Education SIG Editor)— Ali Erickson, 295 Foxtail Dr., 
Eugene, Or 97405 /503-687-1133 

E.R.A.C.E. Corresponding Secretary — Robert Browning, 90 W. Myoak, 
Eugene, OR 97404 (503)689-1513. 


Send 27 cents in stamps or coin (50c overseas) to the Ness’ for the 
new, updated ACE Library List —new in Oct!! 


Bulletin Board (503) 343-4352 


On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives with an ATR 8000 interface, 2 double density 
Percom disk drives, an Epson MX80 printer, a Hayes SmartModem; 
running the ARMUDIC Bulletin Board software written by Frank L. Hu- 
band, 1206 N. Stafford St., Arlington, VA 22201. See the Nov ‘82 issue 
for complete details. 


